home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
MEDICAL
/
1752.ZIP
/
MHD.ZIP
/
MHIDNO.PRG
< prev
next >
Wrap
Text File
|
1986-07-06
|
640b
|
23 lines
* MHIDNO DB3 PLUS PREVISION 07/04/86
*
SET TALK OFF
CLOSE ALL DATABASES
USE MHDRUG
GOTO BOTTOM
STORE DRUG_ID TO drugcount
STORE STR(VAL(DRUG_ID)+1,4) to nextdrug
STORE GEN_NAME TO m_gen_name
USE MHREFER
GOTO BOTTOM
STORE REF_ID TO refcount
STORE STR(VAL(REF_ID)+1,4) to nextref
CLEAR
? ' Last drug is ' + m_gen_name
? ' Last drug:id = ' + drugcount + ' Last reference:id = ' + refcount
? ' Next drug:id = ' + nextdrug + ' Next reference:id = ' + nextref
WAIT
RELEASE ALL
RETURN